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BACKGROUND OF THE PRESENT INVENTION 
FIELD OF THE INVENTION 



5 This invention relates to the field of object-oriented programming and 

distributed computing. 

2. BACKGROUND ART 

10 Object-oriented programming is a method of creating computer 

programs by combining certain fundamental building blocks, and creating 
relationships among and between the building blocks. The building blocks in 
object-oriented programming systems are called "objects." An object is a 
programming unit that groups together a data structure (instance variables) 

15 and the operations (methods) that can use or affect that data. Thus, an object 
consists of data and one or more operations or procedures that can be 
performed on that data. The joining of data and operations into a unitary 
building block is called "encapsulation." In object-oriented programming, 
operations that can be performed on the data are referred to as "methods." 

20 

An object can be instructed to perform one of its methods when it 
receives a "message." A message is a command or instruction to the object to 
execute a certain method. It consists of a method selection (name) and 
arguments that are sent to an object. A message tells the receiving object 
25 what to do. 

One advantage of object-oriented programming is the way in which 
methods are invoked. When a message is sent to an object, it is not necessary 
for the message to instruct the object how to perform a certain method. It is 
30 only necessary to request that the object execute the method. This greatly 
simplifies program development. 
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Object-oriented programming languages are generally based on one of 
two schemes for representing general concepts and sharing knowledge. One 
scheme is known as the "class" scheme. The other scheme is known as the 
"prototype" scheme. Both the set-based and prototype-based object-oriented 
programming schemes are generally described in Lieberman, "Using 
Prototypical Objects to Implement Shared Behavior in Object-Oriented 
Systems," OOPSLA 86 Proceedings, September 1986, pp. 214-223. 

Class Scheme 

An object that describes behavior is called a "class." Objects that acquire 
a behavior and that have states are called "instances." Thus, in the objective 
C language, which is the computer language in which the preferred 
embodiment of the present invention is implemented, a class is a particular 
type of object. In objective C, any object that is not a class object is said to be an 
instance of its class. The classes form a "hierarchy." Each subclass in the 
hierarchy may add to or modify the behavior of the object in question and 
may also add additional states. Inheritance is a fundamental property of the 
class scheme and allows objects to acquire behavior from other objects. 

The inheritance hierarchy is the hierarchy of classes defined by the 
arrangement of superclasses and subclasses. Except for the root classes, every 
class has a superclass, and any class may have an unlimited number of 
subclasses. Each class inherits from those classes above it in the hierarchy. 
Thus, a superclass has the ability to pass its characteristics (methods and 
instance variables) onto its subclasses. 

Figure 1 is a block diagram that illustrates inheritance. Class 1 
(generally indicated by block 101) defines a class of objects that have three 
methods in common, namely, A, B and C. An object belonging to a class is 
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referred to as an "instance" of that class. An example of an instance of class 1 
is block 102. An instance such as instance 102 contains all the methods of its 
parent class. Block 102 contains methods A, B and C. 

5 As discussed, each class may also have subclasses, which also share all 

the methods of the class. Subclass 1.1 (indicated by block 103) inherits 
methods A, B and C and defines an additional method, E. Each subclass can 
have its own instances, such as, for example, instance 104. Each instance of a 
subclass includes all the methods of the subclass. For example, instance 104 
10 includes methods A, B, C and E of subclass 1.1. 

Not all object oriented programming languages permit new methods 
to be added per instance. For, example, in Objective C, an instance can not 
have methods that are not contained in its parent class. 



15 



20 



A disadvantage of an inheritance-based, object-oriented programming 
language is object size. Because each subclass must, by definition, include all 
methods of its parent class and super classes, instances are larger at the bottom 
of the inheritance hierarchy. 



Object-oriented programming languages that utilize the 
class /instance /inheritance structure described above implement a set- 
theoretic approach to sharing knowledge. This approach is used in object- 
oriented programming languages, such as Simula, SmallTalk, Flavors and 
25 Loops. 

Prototype Scheme 

The prototype scheme is an alternate approach to sharing knowledge in 
30 an object-oriented system. In prototype scheme systems that use the 
individual instances, rather than a class, ("prototypes") are created first, 
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instead of a class. The prototypes are then generalized by defining aspects of 
their concepts that are permitted to vary. The mechanism for implementing 
this process is known as "delegation." Examples of prototype languages 
include the actor language and lisp-based object-oriented systems, such as 
5 director, t, and orbit. 

Delegation removes the distinction between classes and instances. To 
create another object that shares knowledge with a prototype, an "extension" 
object is created that has a list containing its prototypes that may be shared 

10 with other objects and containing personal behavior limited to the object 

itself. When an extension object receives a message, it attempts to respond to 
the message using the behavior stored in its personal aspect. If the object's 
personal characteristics are not suitable to answer the message, the object 
forwards the message on to other prototypes to see if one can respond to the 

15 message. This method of forwarding is called "delegating the message." 

An example of delegation is illustrated in Figure 2. Object A provides a 
message 201 to object B. The message includes a method and arguments to 
the method. Object B does not have the method required by the message. 
20 Therefore, object B cannot respond to the message. Instead, object B sends the 
method and message to its delegate. The delegate of object B is object C . 
Object C has the method requested in the message. The method can then be 
executed and a response provided to object A. 

25 Distributed Programming 

A disadvantage of current object-oriented programming systems is that 
all objects are required to exist in a single program or process. This prohibits 
utilizing an object-oriented programming system when writing distributed 
30 applications. In addition, these prior art limitations prevent the creation of 
applications that are distributed physically over networks of machines. 
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The difficulty of creating distributed object-oriented programs is 
illustrated in "Figures 8A and 8B. In Figure 8A, all objects are resident in the 
same program, namely program LOCAL 801. A sender object 802 sends a 
5 message 804 to a receiver 803. The message may include a method and an 
argument. The receiver 803 executes the method of the message 804 and 
returns a result 805. The result 805 is provided back to the sender 802. In the 
example of Figure 8A, the object-oriented program resides entirely on one 
side of a boundary 806. 

10 

Figure 8B illustrates a prior art object-oriented programming system 
attempting to communicate across a boundary between processes. A local 
process 801 includes a sender object 802 that generates a message 804 destined 
for receiver object 808. However, object 808 is on the opposite side of 

15 boundary 806. That is a separate process identified as REMOTE 807. An 

object, such as receiver 808 which resides in a different process than a sender 
object, is known a "remote object" The language arid run time support of the 
local process 801 does not provide a mechanism to send a message 804 directly 
to the remote object 808. At the transition point 809 of boundary 806, the 

20 message is stopped. 

One prior art approach for writing distributed applications consists of 
explicitly defining the boundaries between different programs by specifying 
protocols, generating client/server stubs, and communicating between 

25 processes or programs by using function calls that automatically transport 
arguments and return values between the client layer and the server layer. 
At such boundaries, the object-oriented developer can no longer treat items as 
objects as soon as the boundary of the process is crossed. This defeats the 
purpose and advantage of using object-oriented programming in the first 

30 place. 
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Another prior art method for providing distributed object oriented 
programming is described in "Design of a Distributed Object Manager for the 
SmallTalk-80*Systern, H D. Decouchant, OOPSLA 86 Proceedings, September, 
1986, pp. 444-452. The Decouchant reference describes the design of a 
5 distributed object manager that allows several SmallTalk-80 systems to share 
objects over a local area network. When a local object desires to 
communicate with a remote object, the local object communicates with a 
"proxy" that locally represents the remote object. A proxy is part of the 
private data of the object manager. The proxy has two fields that describe a 
10 remote object, namely, the resident site of the remote object and a virtual 

pointer to the object in the resident site. If the referenced object migrates, the 
contents of the referencing object are not modified. The proxy is updated 
accordingly by the object manager. In this implementation, a proxy is 
functionally equivalent to a Unix link, except that a proxy is not visible to the 
15 programmer. It is a private data structure which is handled by the object 
manager like other Small-Talk objects. 

In the Decouchant reference, three processes cooperate to perform the 
object manager functions. These are the network manager, the main 
memory manager and the secondary manager. SmallTalk interpreter 
processes which access the objects to perform SmallTalk actions may also be 
present on the site. The network manager is the master process of a 
SmallTalk site. It ensures consistency of the shared objects with the other 
network sites and controls the local processes. The main memory manager is 
in charge of the object management in main memory. It resolves object faults 
by allocating free space for the missing object and sending an object load 
request to the secondary storage manager. The secondary memory manager 
takes care of the object management in secondary storage. This storage is 
represented by two files, one of which contains the SmallTalk object table and 
the other one contains the object space. 



20 



25 



30 
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Another prior art method to provide distributed object-oriented 
programming is described in "The Design and Implementation of Distributed 
SmallTalk/ 1 John K. Bennett, OOPSLA, October 4-8, 1987, pp. 318-330. 
SmallTalk itself is a language environment that provides a single user with 
5 access to a single object address space. Only rudimentary support exists within 
SmallTalk for cooperation among users, and no support exists within 
SmallTalk for object sharing between users or between different machines or 
between processes on the same or different machines. The Bennett references 
describes "distributed SmallTalk" (DS) as a method of providing improved 
10 communication and interaction among geographically remote SmallTalk 
users, direct access to remote objects, the ability to construct distributed 
applications in a SmallTalk environment, and a degree of object sharing 
among users. 

15 The system described in the Bennett reference does not allow remote 

classes. Instead, the system requires that classes and instances be co-resident 
on all processes and machines. This impacts object mobility adversely. 
Instances can only move to hosts with compatible classes and insuring class 
compatibility is difficult. In addition, the system of Bennett does not operate 

20 in an object-oriented programming system that utilizes class inheritance and 
reactiveness. (Reactiveness describes the ability of a system to present objects 
for inspection or modification). 

The system of Bennett uses ProxyObjects and a RemoteObjectTable to 
25 implement distributed message passing. A ProxyObject represents a remote 
object to all objects in a local address space. There is one ProxyObject per host 
per remote object referenced by that host. ProxyObjects cause a remote object's 
message interface to appear to local objects as if the remote object were locally 
resident. ProxyObjects redefine the doesNotUnder stand: message of object. 
30 This is the primary message defined for ProxyObjects. In other words, 

messages sent to ProxyObjects are intended to fail. The system responds to 
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this failure by sending the message doesNotUnderstand: to the receiver with 
the message that was not understood as an argument. The ProxyObject's 
response to the doesNotUnderstand: message is to forward the original 
message to the RemoteObjectTable on the appropriate machine or process. 
5 The location of the remote object is part of the internal state of the 
ProxyObject. 

The RemoteObjectTable is responsible for receiving and replying to 
messages forwarded by ProxyObjects. There is one RemoteObjectTable per 

10 host. It is the sole instance of class RemoteObjectTable. The 

RemoteObjectTable can be thought of as a set of extensions to the object tables 
(if present) of all remote machines. The RemoteObjectTable keeps track of all 
local objects that are remotely referenced. When the RemoteObjectTable 
receives a message from some ProxyObject, it schedules a process that will 

15 contain the execution context of the actual message receiver by sending the 
message perform to the receiver with the forwarded selector and arguments 
(if any) as arguments to the perform message. The value returned by the 
perform message is returned to the remote sender in a reply message 
constructed by the RemoteObjectTable. 

20 

Before an object can be sent between processes, the classes must be 
checked for compatibility. The three cases to consider are: 

1. The required class is already present and is compatible; 
25 2. The required class is present, but it is determined to be 

incompatible; and 
3. The required class is not present. 

In case 1, the system proceeds normally. In the second case, the 
30 attempted move fails and the user is notified of the error. In case 3, the user 
is asked whether the desired object's class should be moved. If the response is 
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affirmative, the object's super class is checked for compatibility. This 
procedure continues up the class hierarchy until class object is reached. 
However, class object may not be moved. 

Another method for providing distributed object-oriented 
programming is described in 'Transparent Forwarding: First Steps" Paul L. 
McCullough, OOPSLA 1987 Proceedings, October 4-8, 1987, pp. 331-341. As in 
the Bennett system, the McCullough system utilizes ProxyObjects and the 
doesNotllnderstand: message for identifying and transmitting messages. In 
the McCullough system, the implementation of doesNotllnderstand: creates 
an ethernet packet containing the original message and forwards it to the 
machine containing the remote object. The proxy contains information in its 
instance variables about where the remote object resides. 

Figure 6 illustrates an overview of the operation of the McCullough 
system. A message 601 destined for a remote object is provided to a 
ProxyObject 602. The ProxyObject instance forms a representation of the 
message, including both the selector and the arguments, suitable for 
transmission to a remote machine. This message 603 is forwarded across the 
process boundary 606 to a remote object 604. The remote object 604 receives 
the representation of the message, extracts the message selector and 
arguments and executes the message send as though it originated on the same 
machine as the remote object. This result object 605 is transmitted across the 
process boundary 606 to the ProxyObject 602. The ProxyObject 602 uses the 
return representation to reconstruct the result object and returns it to the 
sender of the original message 601. 

The McCullough system implements four possible message parameter 
passing schemes, namely, pass by value, pass by reference, pass by proxy and 
pass by migration. In pass by value, a representation of the object is shipped 
to the remote machine, which in turn reconstructs the object. Pass by 
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reference cannot be used in a SmallTalk environment because the compiler 
prevents assignment to formal parameter variables. In pass by proxy, a proxy 
for the object and any messages which are sent to the proxy are automatically 
forwarded to the remote object. In pass by migration, we move an object from 
5 one machine to another, leaving a proxy object in its prior home. 

A centralized control scheme, referred to as PolicyMaker, is used to 
deliver messages to remote objects. Individual proxies need not record the 
current network location of a shared object, that is the responsibility of the 
10 PolicyMaker. PolicyMaker responsibilities include the decision of whether to 
pass objects by value, proxy or by migration, and whether to forward a 
message to a remote object or whether to migrate the object to the local 
machine for execution. In addition, PolicyMaker keeps track of open 
connections between machines. For each connection to a remote machine, 
15 the PolicyMaker creates an instance of class Transporter Room. The 

Transporter Room takes care of communications protocols between machines, 
as well as the linearization of messages and objects. 

Figure 7 illustrates the flow control of sending a message from a 
machine to a remote object using the scheme of the McCullough system. A 
message 701, destined for a remote object, is provided to a ProxyObject 702. 
The sender of the message 701 believes it is sending to a local object, but in 
reality it is sending to a remote object. The ProxyObject 702 sends a message 
703 to the local PolicyMaker 704. The PolicyMaker 704 determines whether 
the arguments of the message should be sent by copying or by proxy to the 
remote object. The PolicyMaker establishes a connection to the remote 
machine tmd-via transporter room 706. The PolicyMaker 704 provides the 
message 705 to the Transporter Room 706. The TransporterRoom 706 
linearizes and transmits the message as message 707 to the remote machine 
across process boundary 708. 



20 



25 



30 



10010.929 



11 



Express Mail #B05997312R 



The TransporterRoom 709 of the remote machine receives the message 
707. The TransporterRoom 709 sends the reconstructed message 710 to the 
remote object 711. The remote object 711 returns a message 714 to the 
TransporterRoom 709. The PolicyMaker 712 considers the resulting object 
5 and determines whether to return it by value or by proxy and communicates 
to the TransporterRoom 709 on path 713. The TransporterRoom 709 sends 
the message 707 to the TransporterRoom 706 across process boundary 708. 
The TransporterRoom 706 reconstructs the result object and provides it as 
message 715 to proxy object 702, which can then return it to the sending 
10 context. 

The use of migration limits the performance and ease of use of these 
prior art schemes. Migration of objects from their home process adds to the 
complexity of the system. Another disadvantage of these prior art schemes is 

15 that each process and thread must be forked to anticipate each expected 
iteration. There is no provision for dynamic recursive communication 
between processes. In addition, these prior art schemes rely on a pure, large 
object oriented language/environment, such as SmallTalk. This requires 
substantial run time support to implement communication between 

20 processes. In addition, the prior art schemes do not implement suitable object 
collection methods. 
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SUMMARY OF THE INVENTION 

The present invention permits the distribution of objects and sending 
of messages between objects that are located in different processes. Initially, a 
5 "proxy" object is created in the same process as a sender object. This proxy acts 
as a local receiver for all objects in the local program. When the proxy 
receives a message, the message is encoded and transmitted between 
programs as a stream of bytes. In the remote process, the message is decoded 
and executed as if the sender was remote. The result follows the same path, 
10 encoded, transmitted, and then decoded back in the local process. The result 
is then provided to the sending object. 
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BRIEF DESCRIPTION OF THE DRAWINGS 

Figure 1 ^ya^lo^^diagram illustrating the concept of inheritance in 
object-oriented programming. 

Figure 2,is a block diagram illustrating delegation in object-oriented 
programming. 

Figures 3A-3G illustrate the distributed processing object oriented 
10 programming system of the present invention. 

Figure 44s a block diagram illustrating a general purpose computer 
system for implementing the present invention. 



iiis^fli 



15 Figure 5 lis a flow diagram of the forwarding method of the present 

invention. 



6/1 s a b 



Figure §As a block diagram illustrating the prior art distributed 
processing object-oriented programming system. 
20 X 

Figure 71s a block diagram illustrating another prior art distributed 
processing object-oriented programming system. 



Figures 8A and 8B illustrate non-distributed programming systems. 
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DETAILED DESCRIPTION OF THE INVENTION" 

A method and apparatus for distributed execution of methods is 
described. In the following description, numerous specific details, such as 
5 object-oriented programming language, operating system, etc., are set forth in 
detail in order to provide a more thorough understanding of the present 
invention. It will be apparent, however, to one skilled in the art, that the 
present invention may be practiced without these specific details. In other 
instances, well known features have not been described in detail so as not to 
10 obscure the present invention. 

The present invention may be implemented on any conventional or 
general purpose computer system. An example of one embodiment of a 
computer system for implementing this invention is illustrated in Figure 4. 

15 A keyboard 410 and mouse 411 are coupled to a bi-directional system 419. The 
keyboard and mouse are for introducing user input to the computer system 
and communicating that user input to CPU 413. The computer system of 
Figure 4 also includes a video memory 414, main memory 415 and mass 
storage 412, all coupled to bi-directional system bus 419 along with keyboard 

20 410, mouse 411 and CPU 413. The mass storage 412 may include both fixed 
and removable media, such as magnetic, optical or magnetic optical storage 
systems or any other available mass storage technology. The mass storage 
may be shared on a network, or it may be dedicated mass storage. Bus 419 
may contain, for example, 32 address lines for addressing video memory 414 

25 or main memory 415. The system bus 419 also includes, for example, a 32-bit 
data bus for transferring data between and among the components, such as 
CPU 413, main memory 415, video memory 414 and mass storage 412. 
Alternatively, multiplex data/address lines may be used instead of separate 
data and address lines. 

30 
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In the preferred embodiment of this invention, the CPU 413 is a 32-bit 
microprocessor manufactured by Motorola, such as the 68030 or 68040. 
However, any other suitable microprocessor or microcomputer may be 
utilized. The Motorola microprocessor and its instruction set, bus structure 
5 and control lines are described in MC68030 User's Manual, and MC68040 
User's Manual, published by Motorola Inc. of Phoenix, Arizona. 

Main memory 415 is comprised of dynamic random access memory 
(DRAM) and in the preferred embodiment of this invention, comprises 8 
10 megabytes of memory. More or less memory may be used without departing 
from the scope of this invention. Video memory 414 is a dual-ported video 
random access memory, and this invention consists, for example, of 256 
kbytes of memory. However, more or less video memory may be provided as 
well. 

15 

One port of the video memory 414 is coupled to video multiplexer and 
shifter 416, which in turn is coupled to video amplifier 417. The video 
amplifier 417 is used to drive the cathode ray tube (CRT) raster monitor 418. 
Video multiplexing shifter circuitry 416 and video amplifier 417 are well 

20 known in the art and may be implemented by any suitable means. This 
circuitry converts pixel data stored in video memory 414 to a raster signal 
suitable for use by monitor 418. Monitor 418 is a type of monitor suitable for 
displaying graphic images, and in the preferred embodiment of this 
invention, has a resolution of approximately 1020 x 832. Other resolution 

25 monitors may be utilized in this invention. 

The computer system described above is for purposes of example only. 
The present invention may be implemented in any type of computer system 
or programming or processing environment. 

30 
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The preferred embodiment of the present invention implements an 
object-oriented programming system using objective C language. Objective C 
is an extension to ANSI C that supports the definition of classes of objects and 
provides syntactic and run-time support for sending messages to objects. This 
5 language model is partially derived from SmallTalk and has been described in 
"Object-Oriented Programming; An Evolutionary Approach," Brad J. Cox, 
Addison-Wesley 1986 and in "SmallTalk-80: The Language and its 
Implementation/' Adele Goldberg, Dave Robson, Addison-Wesley 1983. 

10 One feature of objective C is "dynamic binding" of messages to the 

actual methods to be invoked, depending on the class of the receiver. A 
programmer writing code in objective C can create code that sends a message 
"doSomething" to an object. The actual method corresponding to the class of 
the target object does not need to be determined until the message must be 

15 sent. This allows objects of any classes that implementing the doSomething 
method to be substituted for the target object at run time without having to 
modify the part of the program that sends the message. Also, in objective C, 
programs have run time access to method "signatures," that encode a 
method's argument and return types for each class. The method signature 

20 provides a way for two programs to agree on the format of messages. 
Moreover, there is a way to extract arguments from the stack using the 
signature. 

In its preferred embodiment, the present invention is implemented in 
25 a computer system using an object-oriented operating system. One such 
object-oriented operating system is known as the "Mach" operating system 
and is implemented on computers manufactured by NeXT, Inc., the Assignee 
of the present invention. 

30 The Mach operating system is an object-oriented operating system that 

supports distributed programming. It is a multi-tasking operating system 
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kernel, allowing multiple, independent "tasks," which provide the basic 
environment of a program in the form of a demand-paged virtual "address 
space" and one or more "threads" of execution. Mach supports message- 
passing within and between tasks. This support is distinct from objective C 
5 messaging described earlier. 

Fundamental to Mach's ability to deliver messages between different 
programs is an abstraction called a "port." A Mach port is a buffered 
communication channel over which messages are sent. This channel, which 
10 is maintained by the operating system, may be local, may span two tasks on 
the same machine, or may span tasks on different machines. The physical 
location of the receiving end of a port has no effect on the sender, which 
always sees a local reference to the port. 

15 The messages sent on a port are buffered, that is, a sender writes 

messages to a port with a "send" primitive, and a receiver accepts messages 
with a "receive" primitive. The messages themselves may be of any size, and 
consist of a header followed by zero or more data objects. For efficiency, large 
array arguments are passed out-of-line with copy-on-write semantics. Of 

20 particular interest is the ability to pass Mach ports themselves as data objects 
in a message. By this means, one task may pass a port to another, with the 
kernel maintaining address translation along the way. This allows tasks to 
learn about the existence of new external objects, or make new 
"acquaintances/ by receiving their ports in a message. Thus, ports may also 

25 be viewed as a reference for an object that is independent of any particular 
space, and may be freely passed between programs. 

For a task to communicate with a "receiver" object in another address 
space, it must first establish a connection with that program, and then create a 
30 local "proxy" for the object. When a message is sent to this proxy, the 

elements of the objective C message are encoded into a Mach message, which 
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is then forwarded through a Mach port to the other program. On the 
receiving side, the message is received, decoded, and then forwarded it to the 
target objective C object. The return value of the objective C method is then 
encoded and sent back to the originator, where it is decoded and returned as 
5 the value. Each part of this model is now described. 

-z- In order to communicate with an object in a different program or 
process, that program or process must be known. The present invention uses 
Mach ports to represent "domains" of objects, and a token to identify objects 

10 within that domain. This two-part address is easily communicated, since the 
port maintains its identity as it moves between domains. In Mach, acquiring 
ports is synonymous with acquiring privileges to communicate. The present 
invention requires that the local domain has send rights to a port that the 
remote domain has receive rights to, and also that the remote domain has 

15 send rights to a port that the local domain has receive rights to, before any 
communication can take place. Thus, mutual consent is required to 
communicate. 

In addition to learning of each other's ports, each domain must also 
20 provide the other with the token corresponding to its "first proxy." A first 

proxy is required to bootstrap the communication. There must be at least one 
known object in a remote domain before a message can be sent to it. Because 
a connection allows messages in either direction and initiated by either party, 
each side of a connection must have a first proxy. This first proxy may be 
25 viewed as the "receptionist" for the remote domain, as other objects are 

obtained (discovered) by asking this object. This object also is a candidate for 
implementing sender authentication. 

The present invention provides a means for implementing an 
30 extensible, distributed program in which one task is responsible for creating 
other tasks to communicate with. This is a master/slave relationship; the 
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master can provide the slave with send rights to the master's port as part of 
the creation process. When the slave starts executing, it sends a Mach 
message containing send rights to its port and a token for its first proxy back to 
the master. The master then replies with an indication of whether the 
5 connection is granted, and what token to use for the first proxy. This 

"bootstrap-meta-protocol" results in both tasks knowing about each other, 
allowing communication to ensue. 

Distributed Object Oriented Programming 

10 

The present invention provides a method for different processes to 
communicate, using a traditional language-based, message-passing paradigm. 
The present invention has a number of advantages over prior art methods of 
distributed object-oriented programming. These advantages include no pre- 
15 defined set of messages, transparent to the programmer, no code generation 
step and a method for bridging the gap between object-oriented languages and 
object-oriented operating systems. 

The present invention differs from the prior art approaches of 
20 Decouchant, Bennett and McCullough. The present invention uses an object- 
oriented superset of ANSI C with minimal run time support to implement 
transparent messaging between application programs as opposed to the prior 
art systems, that rely on a pure, large, dynamic object-oriented 
language/environment, such as SmallTalk. The present invention either 
25 implements a client/server setup or a master/slave setup that involves 
forking tasks to perform background operations and using the present 
invention to communicate with these tasks. Because communications are 
serialized by the operating system, remote messages performed by a slave task 
appear to the program just like other asynchronous events, such as mouse 
30 clicks, allowing the design of a consistent user interface. Modularity, 
extensibility and safety are gained by spawning new tasks. The ability to 
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implement recursive remote messaging is an important feature of the present 
invention, for example when user interaction is required to perform the 
desired task. 

5 The present invention can also be implemented in a client/ server 

setup. In the client/ server setup, both the client and the server begin 
independently. Communication is through an agreed upon method. The 
client and server can communicate with each other by looking for a manager 
for the communications channel (e.g. network). 

10 

The present invention provides a new alternative for developing 
extensible programs. Instead of adding functionality by adding code that 
defines new object classes and then loading that code into a main program, a 
new program is created and forked. If there are any errors in the new 
15 program, they reside outside the main program improving performance. In 
addition, processing is parallel and asynchronous, leading to improved 
performance. 

In one embodiment, the first time a message is sent to a proxy, the 
20 receiver is asked for the method signature in order to allow the proxy's 

domain to encode the arguments. This can increase communication time. 

One alternative embodiment provides for prior agreement between processes 

so that two tasks know in advance the method signatures for their proxies. 

Alternatively, when prior agreement is not possible due to the dynamic 
25 nature of the required exchange, the atomicity of the signature request can be 

changed to communicate all the public signatures for a given proxy, resulting 

in a single "meta-protocol" transaction for the proxy. 

When an object is passed by reference, a new proxy is typically created. 
30 The present invention includes safeguards to guarantee that if a remote object 
is encoded twice, the same proxy (in the pointer equality sense) will be 
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obtained in the local domain. This unicity of proxies is maintained by a table 
which maps tokens of remote objects to their local proxies and looks for 
previously created proxies when an object pass by reference is decoded. The 
present invention keeps all proxies until the communication with the 
5 remote domain ends. At that time, the table is used to de-allocate all proxies. 

The operation of the present invention is illustrated in Figures 3A-3C. 
Referring first to Figure 3 A, a local process 901 is separated from a remote 
process 902 by boundary 906. The boundary 906 could be a separation between 
10 programs on the same computer or it could represent the separation of two 
different machines on a network. The local process 901 includes a sender 
object 905 that sends a message to receiver object 909. The object 909 is located 
in the remote process 902. However, the sender object 905 can send its 
message 903 to the remote object as if it were a local object. 

15 

The local process 901 includes a receiver proxy 904 that accepts the 
message 903. The receiver proxy 904 is an object that executes a forward:: 
method. The receiver proxy 904 encodes the message and transmits it across 
the process boundary to the remote object. In the preferred embodiment of 

20 the present invention, the proxy 904 encodes the message, (which is a 

language based message such as, for example, an objective C message), as an 
operating system message, such as a Mach message 907, and transmits it to the 
receiver object 909 in the remote process 902. The receiver object 909 decodes 
the Mach message into a language based message for execution or handling in 

25 the remote process 902. 

The present invention supports nested, recursive, remote messages. 
That is, when a message is sent to a remote object, that remote object may 
send other messages back to the local process (which may again send other 
30 remote messages), as part of its calculations before providing a reply to the 
initial message. These messages may be nested arbitrarily deep. If only the 
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sender itself is sent as an argument, (such as illustrated in Figure 3 A), the 
receiver determines what further information is required from the sender 
and sends messages back to the local process to obtain that information before 
generating a reply. 

5 

Referring to Figure 3 B, the receiver object 909 requires additional 
information from the sender object so it generates a request message to the 
sender object 904. However, since the sender object 904 is not resident in the 
remote process 902, a sender proxy 910 is created in the remote process 902. 
10 The sender proxy 910 encodes the request into a Mach message and transmits 
it across process boundary 906 to sender object 905. The Mach message is 
decoded into a language based message and generates a response. This 
response is sent back to the receiver object 909, (again via receiver proxy 904). 

15 Referring to Figure 3 C, the receiver object 909 then performs an 

execute 911 on the original message, to generate a result object 912. The result 
object 912 is encoded 913 and transmitted across process boundary 906 to result 
proxy 914 in local process 901. 

20 In the present invention, proxies are not required to be created in 

advance. Once one proxy of a remote process exists, N proxies can be created 
for communication with that process. The present invention also permits 
the sending of objects themselves across process boundaries. 

25 The recursive nature of the present invention is useful when the 

remote object does notf£ recognize a method sent to it by a local object. For 
example, the local object may send a message to a remote object requesting it 
to execute the method "foo". If the remote object does not recognize the 
method, it can ask the sending object "what is foo?" All objects recognize the 

30 method "what is". The sender object can then respond with instructions 
concerning the nature of the method being investigated. For example, the 
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sender can reply that foo is a method that requires an integer. If no integer 
has been provided, the remote object can then request the integer. 

The creation of the first proxy is provided automatically in the present 
invention. The first time a process is accessed, it must call a process referred 
to as the "proxy receptionist". By definition, the first call to a new process is to 
be at sequence number 0. The first proxy by definition has a sequence number 
of 0. Subsequent proxies, as needed, are defined and the sequence numbers 
are provided to the other process. 

In the preferred embodiment of the present invention, 
communication between processes is implemented in a master/ slave or 
client/ server relationship. In the case of a client/server relationship, the 
server may "publish" its port in an appropriate place on the system. The 
client looks up this port and then uses it to initiate the bootstrap-meta- 
protocol described above. 

The establishment of a connection defines only the first proxy on each 
side. Proxies for any other objects that need to be communicated are created 
dynamically as they are encountered. For example, if a remote method 
returns a new object, a new proxy is created when decoding the result locally, 
such that the local program could send a message to this new remote object 
without any explicit setup. 

Once a connection is established, a message may be sent (in either 
direction). To send a message, the arguments must be encoded into a form 
that is representable in a Mach message, so that the receiver may decode them 
correctly. To do this, the sender must know the method signature of the 
message. The method signature is part of the "protocol" that both sender and 
receiver must understand in order to communicate, and is a domain- 
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independent encapsulation of the method name, its argument types, and its 
return value type. 

Although a protocol may be arranged by prior agreement in many 
5 cases, the present invention determines the protocol dynamically by asking 
the receiver how to encode the arguments for each message as it is 
encountered. During the first attempt to send a given message to a remote 
object, the local domain consults the remote domain to get the signature 
corresponding to the actual class implementation that will ultimately receive 

10 the message. This method signature is cached on a per-connection basis, with 
the assumption that the class of a remote object will not change for the 
duration of the connection. Thus, subsequent messages use the cached 
signature, and do not have the overhead of this "meta-protocol" transaction. 
This dynamic aspect is useful for type checking, and allows one program to 

15 "learn" how to talk to another program. 

The argument encoding for standard C data types is explicit and strictly 
pass-by-value, and maps substantially directly onto a Mach message. Pointers 
to C data structures are not encoded. Arguments that are first-class objects (as 

20 opposed to simple C data types) are handled specially; they are asked to encode 
themselves. The default encoding scheme that most objects inherit is to 
allocate a token (if one does not already exist) in the local domain, and encode 
only that token. Along with the port of the local domain, this constitutes an 
object reference (via proxy), and when it is decoded on the receiving side, 

25 results in a new proxy for that remote object. 

Thus, first-class objects by default get passed by reference instead of by 
value. For example, when domain A sends a message with object X as an 
argument to a remote object in domain B, a new proxy is created in domain B 
30 to represent X. Any subsequent message that domain B sends to X results in 
another remote object transaction. In the present invention, an 
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implementation of an object class is free to choose to implement a different 
encoding scheme, for example one that encodes the object by value, though 
this requires that both sender and receiver implement that class of object. 
The "pass-by-proxy" scheme does not have this restriction and is generally 
5 preferred. 

Because objective C implements functional messages, a return value is 
always returned in a reply message. It is encoded exactly the same way as 
arguments are. In particular, if the result is an object or a proxy, it is encoded 

10 as a proxy or an object, respectively, in the other domain. The reply message 
also encodes information about errors or exceptions that may have occurred, 
so that they can be raised in the local context. That is, an error occurring 
while executing a message sent to a remote object is caught and returned to 
the caller, so that the exception is raised in the local domain. This makes 

15 error handling transparent. Remote exceptions may be handled the same way 
as local exceptions. 

The use of a single port to represent a domain of objects allows an 
efficient and simple implementation. A one-way message is used when 

20 forwarding a message to a remote domain. Messages are received on the local 
domain's single published port while waiting for the reply. Since all 
messages (including both the reply message and any other messages initiated 
from remote domains) arrive on the same port, each one can be handled 
serially. There is no global state to keep track of (the logic is implemented in a 

25 re-entrant manner), and each message and reply have matching sequence 
numbers, so it can be determined when the correct reply has been received. 

In effect, the low level routine to actually forward the message to the 
remote domain becomes the main loop of the program until the reply is 
30 received. There may be many nested levels of this low level routine at one 
time. Outside the scope of a locally-initiated remote message (i.e., the "idle" 
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state of waiting asynchronous messages to arrive), the local domain's port is 
listened to by the main program, along with other non-remote-object related 
events. This approach contrasts with that of the prior art McCullough system, 
where a process or thread is forked to field every expected reply. The present 
5 invention achieves an order of magnitude in performance by avoiding the 
forking when communicating. 

An example of a computer program listing that may be used to 
implement the present invention is described in Appendix A. This computer 
10 program listing is given by way of example only. The present invention may 
be practiced using other programs and methods as well. 

Automatic Forwarding of Messages 

15 The present invention, in its preferred embodiment, takes advantage 

of a method referred to as "automatic forwarding of messages." This method 
is the subject of copending patent application number 07/695,316 filed May 3, 
1991, entitled "METHOD FOR PROVIDING AUTOMATIC FORWARDING 
OF MESSAGES AND METHODS" and assigned to the assignee of the present 

20 invention. This method is described below. 

In objective C, when an object receives a message that contains a 
method that the object does not recognize, an exception is provoked leading 
to an error. The present invention, instead of provoking an exception, 

25 redirects the message to an acquaintance that can understand the message. 
For example, if an object receives a message containing a method that the 
receiving object does not contain, the message is forwarded to an 
acquaintance object that does contain the method. This provides the 
advantage of inheriting the method from the acquaintance object but does not 

30 require the first receiving object to actually have the method itself. This 
reduces code size the memory requirements. 
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The present invention has a plurality of uses. For example, a new 
object class can be defined so that one of its instances (attributed object) adds 
an attribute to another object (its forwardee). In that situation, automatic 
forwarding occurs when an attributed object receives a message that is 
irrelevant to the attribute, and the method is forwarded to the forwardee. In 
another situation, some functionality is applied before and/or after the 
forwarding. This can be used in the case of a locking data structure where all 
methods must be redirected to the locked data after acquiring the lock, and 
where the lock must be released after the execution of the forwarded method. 
The present invention also has use in the case of forwarding messages in a 
distributed environment where there is no explicit forwardee. Rather, there 
is a network address of the forwardee. 

15 The implementation of the present invention in the preferred 

embodiment requires trapping the "message not recognized" exception of 
objective C, retrieving all of the arguments of the unrecognized message, and 
sending the "forward::" message to the object. 

20 The resulting automatic forwarding system of the present invention is 

more powerful than multiple inheritance and is transparent to the 
programmer and developer. The system is general, because the forwardee is 
not explicit, thus permitting solutions to a large class of problems. 

25 The present invention uses the forward:: command so that subclasses 

can forward messages to other objects. The format is forward: (SEL) 
aSelector:(marg_list) argFrame. When an object is sent an aSelector message, 
and the run time system cannot find an implementation of the method for 
the receiving object, the run time system sends the object a forward:: message 

30 to give it an opportunity to delegate the message to another object. If the 
forwardee object cannot respond to the message either, it also has the 
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opportunity to forward the message. A forward:: message is generated only if 
a selector method is not implemented by the receiving object's class or by any 
of the classes it inherits from. 



5 The forward:: message thus allows an object to establish relationships 

with other objects that will, for certain messages, act on its behalf. The 
forwarding object is, in a sense, able to "inherit" some of the characteristics of 
the object it forwards the message to. The forwarding object is not limited to 
the forwardees it may select, and a forwardee relationships may be formed 
10 with more than one object at the same hierarchical level. Therefore, the 

present invention provides the advantages of multiple inheritance without 
the code size problem. 



In addition to forwarding messages, the forward:: method can locate 
15 code that responds to a variety of different messages, thus avoiding the 
necessity of having to write a separate method for each selector. 

If implemented to forward messages, a forward:: method has two tasks. 
First, to locate an object that can respond to the aSelector message (this need 
20 not be the same object for all messages). Second, to send the message to that 
object using the performv:: and performv method. 



The operation of the present invention is illustrated in the flow 
diagrams of Figure 5. At step 501, Object A sends an aSelector message to 
25 object B. At decision block 502, the argument "Implementation exists in 
Object B?" is made. If the argument is true, the method of the aSelector 
message can be executed by object B. If that is the case, the system proceeds to 
step 503 and the method is executed. If the argument is not true, the system 
proceeds to step 504 and invokes the forward:: method. 

30 
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The forward:: method then performs the first of its two tasks at step 
505. Namely, it attempts to locate an object to respond to the aSelector 
message. At decision block 506, the argument "Object found?" is made. If the 
argument is true, then forward:: has successfully found an object to respond 
5 to the aSelector message. In the present invention, the forwarding object is 
typically a proxy object. 

The system then proceeds to step 507, the message is encoded and 
transmitted as an operating system message to another process. At step 508, 
10 the operating system message is decoded and provided to the destination 

object. At step 509, the destination object executes the method of the message 
to generate a result. At step 510, the result is encoded and transmitted to the 
first process as an operating system message. At step 511, the message is 
decoded and the result is provided to the sending object. 

15 

If the argument at decision block 506 is not true, the system proceeds to 
decision block 512. At decision block 512, the argument "forward again?" is 
made. If the argument is true, the message is forwarded again and a search 
for an object to respond to the message is made. If the argument is false, the 
20 system proceeds to step 513 and an exception (error) is invoked. 

In the case in which an object forwards messages to just one 
destination, a forward:: method could appear as follows: 

25 - forward: (SEL) aSelector :(marg_list)argFrame 

{ 

if ( [friend respondsTo:aSelector] ) 

return [friend performv:aSelector:argFrame): 
return [self doesNotRecognize:aSelector]; 

30 } 
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ArgFrame is a pointer to the arguments included in the original 
aSelector message. It is passed directly to performy:: without change. The 
default version of forward:; implemented in the object class invokes the does 
not recognize: method. It does not forward messages. Thus, if a user chooses 
5 not to implement forward:: methods, unrecognized messages will be handled 
in the usual way. 

The objective C run time code routines for implementing automatic 
forwarding of messages is as follows: 



0 



/ / provide a default error handler for unrecognized messages 



static id_forward (id self, SEL sel, ...) 



id 



retval; 



15 



/ / the following test is not necessary for Objects (instances of 
Object) 

/ / because forward:: is recognized, 
if (sel == ©selector {forward::)) { 



pbjc_error (self, _ errDoesntRecognize, SELNAME (sel)); 



20 



return nil; 



retval = [self forward: sel : &self]; 



return retval; 



25 



Method smt = (Method) objc_malloc (sizeof (struct 
objc_method)) ; 



smt->method_name = sel; 



30 



smt->method_types = ""; 
smt->method_imp = (IMP) _f or ward; 
_cache_fill (savCls, smt); 
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} 
{ 

Method smt = (Method) objc_malloc (sizeof (struct 
objc__method)); 

5 

smt->method_name — sel; 
smt->method__types = ""; 
smt->method_imp = (IMP) _forward; 
cache„fill (savCls, smt); 

10 } 

/ / the class does not respond to forward: (or, did not supply a 
dest) 

{ 

Method smt = (Method) objcjnalloc (sizeof (struct 
15 objc_method)); 

smt->method_name = sel; 
smt->method_types = ""; 
smt->method_imp = (IMP) _f or ward; 
_cache_fill (savCls, smt); 

20 } 

return (IMP) _forward; 



Thus, a method and apparatus for providing distributed processes is 
25 described. 
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APPENDIX A 



# import <stdlib . h> 
tfimport <stdarg.h> 
ff import <objc/HashTable .h> 
ffimport <objc/hashtable . h> 
# import <sy s /message .h> 

/* Declarations that will go away */ 
extern. SEL _se l_r eg i s t e rName (STR key); 

/***************** Definitions **************************/ 

extern int def aul tCommTimeout ; /* in millisecs, <0 means infinite */ 

extern int remoteMessageReceiveCount ; /* increments when a msg is received */ 



/* The following type of function may be passed to the beginListeningOn : rootob ject : m 

ethod. It gets asynchronously called during remote message sending. For example, an app co 
uld register the port and function with DPSAddPort when the boolean is YES (and DPSRemoveP 
ort when NO) . */ 

typedef void ( *remote_message_handler_t ) (msg_header_t *msg, void *userData) ; 

typedef void (*receive„enable_proc_t) (port„t port, remote„message_handler„t fun, BOOL shou 
IdEnable) ; 

typedef enum { 

tfdefine REMOTE__EXCE PTI ON_B AS E 3 6000 /* less than appkit base */ 

/* Format of exceptions is a label and a message string */ 

GENERIC REMOTE EXCEPTION = REMOTE EXCEPTION BASE , 

TIMEOUT REMOTE_EXCEPTION , 

L AST_REMOTE_EXCE PT I ON 
) RemoteException; 

/***************** Communication a*************************/ 

^interface Communication: Object { 
^public 

port„t sendPor t ; 

int timeout; /* in milliseconds */ 

NXHashTable *obj ect sGivenAway ; 
NXHashTable *allProxies ; 

} 

+ beginListeningOn: (port_t ) listenPort enableProc : ( receive_enable_proc_t ) aProc ; 
/* Initialize the remote object system. 

enableProc is called immediately with a boolean of YES. */ 

+ new: <port_t) port timeout :{ int ) aTimeout ; 
+ f indCommForPor t : (port_t ) aPort ; 

@end 

/***************** Remote Objects **************************/ 

^interface RemoteObj ect : Object { 

Communication *comm; /* nil means "local" */ 

unsigned name; /* object name; 0 means localRoot */ 

HashTable *knownSelectors; /* cache */ 



+ messageReceived: (msg__header_t *)msg; 
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+ newUeinote: (unsigned) remoteName withConununication: (CoininunicaLion *) communication ; 
/* This is used only for bootstrap */ 

+ registerLocalRoot : root ; 

/* Register the local root, and return a remote object with name 0; 
Can only be called once */ 

+ newbocal : local withCommunication : (Communication *) communication; 

/* search for a local-RemoteObj ect that corresponds to local id. 
If none found, creates one */ 

- ( uns igned ) remoteObj ec LName ; 

- (unsigned) methodArgSize : (SEL) sel; 

/* Size of the arguments of the remote object, including self and sel; 
0 iff error * / 

- forward: (SEb) sel : (void *) args; 
@end 

Encoding Protocol **************************/ 

^interface Object (Object_MakeRemote) 

- encodeRemotelyFor : (Communication * ) communication f reeAf terEncoding : (BOOb *)flag; 

/* This method is called for each object being encoded; By default, it consists in ere 
ating a new "local- remote object (i.e. passing the object by reference). To pass the obj 
ect by value, just return the object. To substitute another object, just return it. 

Iff flag is set, the returned object will be freed after encoding. */ 

- af terPortReading : (Communication *) communication; 

/* This method is called after decoding an object to give an opportunity to replace it 
; original object can be freed */ 

- instantiateObject : (const char *)className; 

- setOutlet : (const char *)outletName with:dest; 
@ end 



; i 
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//import "HemoteObject .h" 
ft import "NXPortStream.il" 

ft import <string.h> 

ft import <stdio.h> 

ff import <libc . h> 

ft import <c t hreads . h> 

ft import <mach . h> 

//import <syslog . h> 

//import--- <objc/ error . h> 

//import <objc/L*ist .h> 

//import <ob jc/obj c -runtime .h> 

//import <kern/mach__param.h> 

//import <sys/message.h> 

/***************** Forward Definitions a*************************/ 

static void hand 1 eRemo t eMe s s age ( msg_header„ t *m, void *userData) ; 
static void remoteAsk (port_t port, msg_header__t *msg, int timeout) ; 
//if 0 // Never tried 

static void remoteTel 1 (port_t target, msg_header__t *msg, port_t sender, int timeout); 
/lendif: 

/***************** utilities **************************/ 

int def aultCommTiineout = 15000; 
BOOL, enableWarning = NO; 

static void logv (const char *format, va_list args) { 
print f ( "RemoteObjects [pid %d]:\f, getpidO); 
vprintf ( format , args); ' * 

) 

static void ROLog (const char *format, ...) { 
va„list args; 
va_start (args , format); 
logv(format, args); 
va_end (args) ; 



static void warning (const char *forntat, ...) { 
va__list args; 
va_start (args , format); 

if (enableWarning) logv (format, args); 
va_end(args) ; 



static void error (const char *format, .-.) { 
va„list args; 
va_start (args , format); 
logv ( format , args ) ; 

va__end (args ) ; -\ 
NX_RAISE(GENERIC_REMOTE_EXCEPTION, "Internal error", NULL) ; 



static int generateSequenceNumber ( ) ( 
static int number=0 ; 
number++; 

if (Inumber) number = 1; /* useless */ 
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return number ; 

) 

©interface Object ( Privat e — Imports ) 

- really Free; 

@end 

/***************** Selector Info **************************/ 

©interface RemoteMethodlnfo: Object { 
NXAtom typedesc; 

} 

static RemoteMethodlnfo * knownRemo t eMe thodln f o « nil; 

+ localMethodlnfoFor: (Class) class :<SEIi)sel; 

/* Return RemoteMethodlnfo for a local method; 
Can return nil */ 

- encodeMethodParams: (void *)args onto : (NXPortStream *) stream; 

/* encode the method frame onto stream (excluding self and sel) */ 

- (void *) decodeMethodParamsFrom: (NXPortStream *) stream; 

/* decode the method frame from stream; 

return a freshly malloced pointer, never NULL, (unless error) */ 

-encodeMethodRet: result onto : (NXPortStream *) stream; 
/* encode the method return value */ 

- decodeMethodRetFrom: (NXPortStream *) stream; 

/* decode the return value. */ 

- (unsigned) sizeOf Pa rams ; 

/* Return the size of all parameters including self and sel */ 

©end 

@ implementation RemoteMethodlnfo 

static unsigned hashMethodlnf o (cons t void *info, const void *data) { 
const RemoteMethodlnfo *rm = data; 

return (unsigned) rm->typedesc ; /* depends on the fact its uniqeud */ 

static int isEqualMethodlnf o (const void *info, const void *datal, const void *data2) { 
const RemoteMethodlnfo *rml = datal ; 

const RemoteMethodlnfo *nn2 = data2 ; 

return ( rml->typedesc == rm2->typedesc) ; 

) 

static NXHashTablePrototype proto « {hashMethodlnf o, isEqualMethodlnf o, NXNoEf feet Free, 0) 



static NXHashTable *allMethodInf OS = NULL; ; 
+ initialize { 

if (! knownRemoteMethodlnf o) ( 

allMethodlnfos « NXCreateHashTable (proto, 0, NULL);. 

knownRemoteMethodlnf o = [RemoteMethodlnfo localMethodlnfoFor: (Class) (Object clas 
s J : ©selector (remoteMethodlnfo : ) J ; 
) 

return self; 



+ localMethodlnfoFor : (Class) class : (SEL) sel { 

Method method = class_getInstanceMethod (class, sel); 

RemoteMethodlnfo *previous; 
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if (! method) { 

error (•*** localMethodlnfoFor: : for ' %s ' with '%s' return nil\n", [(id) class name 
J, sel__getName (sel) ) ; 
return nil; 

> 

self = (super new] ; 

typedesc = NXUniqueString (method->method„types) ; 
previous = NXIIashGet (allMethodlrif os , self); 
if (previous) {[self free]; return previous; ) 
NXllashlnsert (allMethodlnfos , self); 
return self; 

} 

- encodeRemotelyFor : (Communication *) communication f reeAf terEncoding : (BOOL *)flag { 

return self; 

) 

- writePortStream: (NXPortStream *) stream ( 

[super writePortStream: stream] ; 
warning ( "writ ing a Method: %s\n" , typedesc); 
NXWritePortTypes ( stream, M % " , &typedesc); 
return self; 

) 



- readPortStream : (NXPortStream *) stream ( 

[super readPortStream: stream] ; 
NXReadPortTypes ( stream, &typedesc) ; 

warning ( -reading a Method: %s\n" , typedesc) ; 
return self; 

} 

- encodeMethodPararns : (void *)args onto : (NXPortStream *) stream { 

struct objc_method met; 
unsigned nb; 

unsigned index = 2; /'* skip result, self and sel */ 
int offsetO; 
char *type; 

met . rnethod_types = (char *) typedesc; 
nb = method_getNumberOf Arguments (&met) ; 

NXWritePortTypes (stream, M i", &nb) ; /* just for redundancy */ 
inethod_getArgumentInf o (&met , 0, &type, &of f setO) ; 
wliile (index < nb) { 

char * type ; 

int offset = 0; 

void *arg; 

method_ge t Argument Inf o (&met , index, &type, &of fset) ; 

if (! offset) error ("*** encodeMethodPararns : onto : cannot extract %d argument for t 
ype desc %s\n", index, typedesc); 

arg = ((char * ) args ) +of f set-of f setO ; 

warning ( -encodeMethodPararns : onto: type=%s value=0x%x\n", type, * (void **)arg); 
NXWritePortTypelnternal (stream, type, arg); 
index* +; 

} 

return self; 

} 

- (void *)decodeMethodParamsFrom: (NXPortStream Mstream { 
struct objc_method met; 
unsigned nb; 
unsigned index = 2 ; 
unsigned count; 
void *args ; 

int offsetO; 
char *type; 
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met ,inethod„types = (char *) typedesc; 
nb = method_getNumberOf Arguments (&met ) ; 
NXReadPortTypes (stream, "i", fccount) ; 
if (count != nb) ( 

error ( "decodeMethodParamsFrom : incompatible method params " ) ; 

return NULL; 

method_get Argument Info (&met , 0, &type, &offset0); 
args = calloc ( [self sizeOf Params] , 1); 
while (index < nb) { 

char *type; 

int offset = 0 / 

void *arg; 

inethod_get Argument Info ( &met , index, &type, fcoffset) ; 

if (! offset) error ("*** decodeMet hodParamsFrom : cannot extract %d argument for ty 
pe desc %s\n", index, typedesc); 

arg = ((char *) args) +off set-off setO ; 
NXReadPortTypelnternal (stream, type, arg); 

warning ( "decodeMethodParamsFrom: type=%s value=0x%x\n\ type, * (void **)arg); 
index++; 

} 

return args; 

) 

- encodeMethodRet! result onto : (NXPortStream *) stream { 
//?? -> SN: way to get return types? 

if (typedesc [OJ == 'v') return self; 
if (typedesc [0] « 'c') { 
//?? BOGUS, of course 

NXWritePortTypelnternal (stream, M i " , &result) ; 
) else { 

NXWritePortTypelnternal ( stream, typedesc, fcresult) ; 

} 

return self; 

) 

- decodeMethodRetFrom: (NXPortStream *) stream { 

id result = nil;/* important init. for result less than 4 bytes */ 

//?? -> SN: what iff result more than 4 bytes? 
if ( typedesc [0 J == 'v') return nil; 
if ( typedesc [OJ == 'c') { 
//?? BOGUS, of course 

NXReadPortTypelnternal (stream, "i", &result) ; 
) else { 

NXReadPortTypelnternal (stream, typedesc, &result) ; 

) 

return result; 

) 

- (unsigned) sizeOf Params { 

struct objc__method met; > 
met .method_types = (char *) typedesc; \ 
return method_.getSizeOf Arguments (&met ) ; ! 

) 

@erid 

©interface Object (Object„RemoteMethodInf o) 

- remoteMethodlnf o : (SEL)sel; 
@end 

@ implementation Object (Obj ec t_Remo teMethodlnf o) 

- remoteMethodlnf o : (SEL)sel { 



10010.929 



38 



Express Mail #B05997312R 




return [ RemoteMethodlnfo localMethodlnlol-or : (Class) [self class] :selj; 

) 

@end 

Communication **************************/ 

@ implementation Communication 

typedef struct _LocalToRemote { 
id local; 

RemoteObject *remote; /* remote->narae == (unsigned) local */ 

) LocalToRemote; 

static void freeLocalToRemote (const void *info, void *data) ( 
LocalToRemote *ltr ~ data; 

[ltr->remote reallyFree] ; 
free (data) ; 

) 

static NXMashTablePrototype proxyProto; 
static id commList = nil; 

static receive„enable__proc_t enableProc = NULL; 
static port„t reply Port = PORT„NULL; 

+ beginbisUeningOn: (por t_t ) listenPort enableProc: ( receive_enable_proc_t ) aProc { 
replyPort = listenPort; 

port_set_backlog(task_self () , listenPort, PORT_BACKLOG_MAX) ; 
enableProc = aProc ; 

if (enableProc) (*enableProc) (replyPort , handleReinoteMessage, YES) ; 
return self; 

} 

+ new: (port_t) port timeout :( int ) aTimeout { 

NXMashTablePrototype protol = NXPtrStructKeyPrototype; 

protol.free = freeLocalToRemote; 

if (! commList) commList = [List new]; 

self = [super newj ; 

sendPort = port; 

timeout = aTimeout; 

object sGivenAway = NXCreateHashTable (protol , 0, NULL); 
allProxies = NXCreateHashTable (proxyProto, 0, NULL) ; 
[commList addobj ec t : sel f J ; 
return self; 



+ £ indComiiiForPort : (port_t ) aPort { 
int index - [commList count] ; 
while (index--) 

if (((Communication *) [commList obj ect At : index] ) ->sendPort 
return [commList obj ect At : index] ; 
return nil; 



- free { 

[commList removeObj ect : self ] ; 
NXFreeHashTable ( obj ect sGivenAway ) ; 
NXFreellashTable (allProxies) ; 
return (super free]; 



- beforeEncoding:object onto: (NXPortStream *)stream f reeAf terEncoding : (BOOL *)flag { 



= = aPort) 
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return [object encocleRemotely For : stream->comiuunicat ion f reeAf terEncoding : f lag ) ; 

) 

- afterDecoding: object from: (NXPortStream *)stream { 

return [object af terPortReading: stream- communication] ; 

} 

@end 

/***************** Remote Objects **************************/ 

static id localRoot = nil; 

static id 1 oca IRemoteFor Root = nil; 

@ imp lenient at ion RemoteObject 

+ initialize { 

/* We have to initialize knownRemoteMethodlnf o ! */ 
[RemoteMethodlnf o initialize] ; 
return self; 

) 

+ newRemote: (unsigned) remoteName withCoiranunication: (Communication *) communication ( 
self = [super new] ; 
coiiim = communication; 
name = remoteName; 

if (NXHashlnsert <communication->allProxies , self)) error ( "newRemote : already in table! 
return self; 

) 

+ newLocal : local wi thCommunication : (Communication *) communication { 
LocalToReinote pseudo; 
Local ToRemo t e * 1 1 r ; 

if (! local) return nil; 

if (local == localRoot) return localRemoteForRoot ; 
pseudo. local = local; 

ltr = NXHashGet ( communicat ion->obj ectsGivenAway , &pseudo) ; 

if (ltr) return ltr->remote; 

ltr = malloc (sizeof (LocalToRemote) ) ; 

ltr->local = local; 

ltr->remote = [self new] ; 

1 tr->remote->name = (unsigned) local; 

NXHashlnsert ( communication->obj ectsGivenAway , ltr); 
return ltr->remote; 

) 

+ registerLocalRoot : root { 

if (localRoot) error ( "regis terLocalRoot : root registered twice!"); 
localRoot - root ; 

return (localRemoteForRoot = [self new]); > 

) 

+ messageReceived: (msg_header_t *)msg { 
handleRemoteMessage (msg, NULL) ; 
return self; 

) 

- reallyFree { 

[knownSelectors free) ; 
return [super free] ; 

) 

- free ( • 
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sysloy (UX-i_ERR, "Remote Object Oxlsx received iree H , self); 
return nil; 

) 

static unsigned hashProxy ( const void *info, const void *data) { 
return ( (RemoteObject * ) data) ->name; 

} 

static int isEqualProxy (const void *info, const void *datal, const void *data2) { 
return ((RemoteObject * ) datal ) ->name == ((RemoteObject * ) data2) ->name; 

) 

static void freeProxy (const void *info, const void *data) { 
[ (id) data reallyFreeJ ; 

) 

static NXMashTablePrototype proxyProto « {hashProxy, isEqualProxy, freeProxy, 0); 

- (unsigned) remoteobj ectName { return name/ } 

- remoteMethodlnfoi (SEL)sel { 

id res; 

id args [4 J ; 

if (sel == ©selector ( remoteMethodlnf o : ) ) return knownRemoteMethodlnf o; /* to avoid inf 
inite recursion */ 

res = t knownSelectors valueForKey: (void *)selj; 

if (res) return res; 
//?? -> SN How to fill args cleanly 

bzero(args, sizeof ( id) * 4 ) ; 

{ 

Method method = class_getlns tanceMethod ( (Class ) [Object class], Qselector ( remoteMe 
thodlnfo: ) ) ; 

char *type; 
int offset2; 

int of f setO; , 

SEb *ref; 

method_getArguinentInf o (method, 0, fttype, &of fsetO) ; 
method_getArgumentIn£o (method, 2, &type, &of fset2) ; 
ref = (StfL, *) (((char * ) args ) +of f set2-of f setO ) ; 
*ref = sel; 

) 

res = ((id) self forward : ©selector (remoteMethodlnf o : ) sargsj; 

if (! knownSelectors) knownSelectors » (IlashTable newKeyDescs " i " J ; 

(knownSelectors insertKey : ( void * ) sel vaiuesres); 

return res; 



encodeRemotelyFor : (Communication * ) communication f reeAf terEncoding : (BOOb *)flag { 
return sel f ; 



writePortStream: (NXPortStream *) stream { 
[super writePortStream: stream] ; 
NXWritePortTypes (stream, "ii", fccoiran, &naine) ; 
return self; 



readPortStreami (NXPortStream *) stream { 
[super readPortStream: stream]; 

NXReadPortTypes (stream, "ii", &comm, &name) ; 
return sel f ; 



af terPortReading : (Communication *) communication { 
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if ( ! comm) { 

id previous; 

/* it was local for the other guy */ 

warning ("in afterPortReading - read Remote %d\n" , name); 
comm = communication; 

previous = NXHashGet ( communication->allProxies , self); 
if (previous) { 

warning ( "receiving same name=Ox%x previous=Ox%x self =Ox%x\n" , name, previous, 

self) ; 

[self reallyFree] ; 
return previous; 

} 

NXHashlnsert (communication->allProxies, self); 
return self; 
) else ( 

LocalToReinote pseudo; 
LocalToRemote *ltr; 
pseudo. local = (id) name; 
if (! name) { 

if (! localRoot) error ( "invariant broken in afterPortReading:"); 
[self reallyFree]; 
return localRoot ; 

} 

ltr = NXHashGet (coinmunication->obj ectsGivenAway , &pseudo) ; 
if (! ltr) error { "afterPortReading: " ) ; 
if ( (unsigned) ltr->local != name) ( 

error ( "afterPortReading : broken invariant " ) ; 

warning ("in afterPortReading - converting Remote %d into local Ox%x\n", name, ltr 

> local ) ; 

(self reallyFree] ; 
return ltr->local; 

) 

} 

- (unsigned) methodArgSize : (SEL) sel ( 

RemoteMethodlnfo *selInfo = (self remoteMethodlnf o : sel J ; 

if (! sellnfo) return 0; 
return ( sellnfo sizeOf Params J ; 

} 

- forward: (SEL) sel : (void * ) args { 

char buf fer [MSG_SIZE_MAX J ; 

msgjieader„t *msg = (msg„header_t *) buffer; 

NXAtom selName = NXUniqueString ( sel_getName (sel)); 

int sequence = generateSequenceNumber ( ) ; 

NXPortStream *stream = NXOpenEncodePortStream (msg , sequence, comm); 

RemoteMethodlnf o *selInfo = (self remoteMethodlnf o : sel ] ; 
id result; 
int errorCode; 

if (! sellnfo) error (" forward : : cannot find remote selector %s", selName); 
warning ( "entered forward:: self=%d selName=%s\n" , name, selName); 
NXWritePortiypes ( stream, "@%", &self, &selName) ; 
(sellnfo encodeMethodParams : args onto : stream] ; 
NXCloseEncodePortStream (stream) ; 

warning("in forward:: - %d made packet for (Ox%x comm:%x %s . ..]\n", name, comm, self, 
selName) ; 

remoteAsk (coinm->sendPort , msg, coimn->tiineout) ; 
/* let's decode the result */ 

warning("in forward:: selName=%s received answer\n w , selName) ; 
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stream = NXOpenDecodePortStream (msg , conun) ; 
NXReadPortTypes (stream, "i", &errorCode) ; 

if (errorCode) error (" forward : : Error occurred during remote execution"); 
result = fsellnfo decodeMe thodRet From : stream] ; 
NXCloseDecodePortSt ream ( stream) ; 

warning ( "in forward: : - %d result decoded for [Ox%x comm:%x %s . . . J \n" , name, comm, se 
If , selName) ; 

return result; 

> 

©end 

Object Misc **************************/ 

©interface Obj ect ( Ob j ec t_MakeRemo t e ) 

- setAction: ( SEL. ) theSelector; 
©end 

©implementation Object (Object__MakeRemote„Impor t ) 

- encodeRemotelyFor : (Communication *) communication f reeAf terEncoding : (BOOL *)flag ( 

warning (" in encodeRemotelyFor - converting local Ox%x (%s) into remote\n M , self, (self 
name ] ) ; 

return [ReinoteObject newLocal : self withCommunicat ion : communication] / 

) 

- af terPortReadirig : (Communication * ) communication { 

return sel f ; 

} 

- ins tantiateObject : (const char *)className ( 

return [objc__getClass ( (char *)className) new]; 

} 

- setOutlet : (const char MoutletName with:dest { 

char methodString [256] ; 

SEL sel; 
strcpy (methodString , "set"); 
strcat (methodString , outletName) ; 
strcat (methodString , " : " ) ; 

if (methodString (3] >= 'a' && methodString [3] <= 'z') 

methodString [3 J += 'A' - 'a'; 
sel = _sel„registerName ( (char *) NXUniqueString (methodString) ) ; 
ffif 0 

if ((self respondsTo: sel] ) { 

(self performrsel withrdest] ; 
) else ( 

object_setInstanceVariable (self , methodString, dest) ; 

} 

else 

[self perform:sel with:dest]; 
ffendif 

return self; 

} 

@end 

/***************** Message transport **************************/ 

fldefine RO_TEhL_MSG_ID (232323) 
ff define RO_ASK_MSG_ID (323232) 
fldefine RO_REPLY_MSG_ID (233223) 

fldefine DEFAUI/T_TIMEOUT (15000) 

static void remoteReply (port„t rPort, msg_header_t *msg, int timeout); 
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static void JiandleRemoteAsk (msg_header_t *msg, port__t sender, id coimnunicat ion) { 
/* 

** perform a remote RPC. 

** Tliis function may call many callouts to enableRemoteLiis tening and 
** disableRemotebistening as it recurses . 
** exceptions may arise. 
*/ 

NXAtoin selName; 

id volatile result = nil; 

NXPortStream *stream = NXOpenDecodePortStream (msg ( communication); 

char *args; 

id self; 

SEL sel; 

int errorCode = 0 ; 

RemoteMethodlnf o * sel Info; 

int sequence = NXGetPortStreamSequence ( stream) ; 

char buffer [MSG_SIZE_MAX J ; 

warning ("in remoteAnswer received packet\n"); 
NXReadPortiypes (stream, "@%", &self, &selName) ; 
warningCin remoteAnswer selName=%s\n " , selName) ; 
sel = se.l_getU.id( (char *) selName); 

if (! sel) error ( H handleKemoteAsk: received message with unknown sel") ; 

sellnfo = [self remoteMethodlnf o : sel ] ; 

args = [sellnfo decodeMethodParamsFroin : stream] ; 

NXCloseDecodePortSt ream (stream) ; 

if ( ! args) { errorCode = -2; goto done; ) 

NX_DUR1NG 

result = objc_msgSendv(self , sel, [sellnfo sizeOf Params J , args); 
NX_H ANDLER 

ROLog (•**** Error while excuting remote message for {Ox%x %s . ..J\n", self, selName 

) ; 

errorCode - -1; ' 
NX_END!IANDLER; 
free (args) ; 

/* let's encode the result */ 
done: 

/* we cannot reuse msg here, regrettably, because if we come from DPSClient, we don't 
have an 8K buffer but a copy only big enough for the incoming msg; sigh */ 
msg = (msg_header_t * ) buffer; 

stream = NXOpenEncodePortStream (msg , sequence, communication); 
NXWritePortTypes (stream, "i", &errorCode) ; 
(sellnfo encodeMethodRet : result onto : stream J ; 
NXCloseEncode For tSt ream (stream) ; 

remoteReply ( sender', msg, ( (Communication* ) conununicat ion) ->t imeout ) ; 
warning ("in remoteAnswer made return packet\n M ); 

) 

static void handleRemoteTell (msg_header_t *msg, port„t sender, id communication) { 
const char * selName; 

NXPortStream *stream = NXOpenDecodePortStream (msg, communication); 

char *args; 
id self; 
SEJj sel; 

int volatile errorCode « 0; 

RemoteMethodlnf o *selInfo; 

warning ("in handleRemoteTell received packet\n H ); 
NXUeadPort'iypes (stream, "Q%", &self, fiselName) ; 
warning ( "in liaudleUemoteTell selNames%s\n M , selName)/ 
sel = sel__getuid ((char *) selName); 

if .( ! sel) error ( "handleRemoteTell : received message with unknown sel") ; 



10010.929 



44 



Express Mail #B05997312R 




sellnfo = I self remoteMethodlnf o : sel J ; 

args = [sellnfo decodeMethodParamsFrom: stream] ; 

NXCloseDecodePortStream (stream) ; 

if (! args) { errorCode = -2; goto done; } 

NX_DURING 

objc_msgSendv (self , sel, [sellnfo sizeOf Parains ] , args); 
NX_J!ANDLfER 

errorCode = - 1 ; 
NX_ENDH ANDLER ; 
f ree (args) ; 
done r 

if (errorCode) warning ("*** Error executing handleRemoteTell %d\n", errorCode); 

) 

int remo.teMessageReceiveCount = 0 ; 

static void handl eRemo t eMe s sag e ( msg Jieade r_ t *ntsg, void *userData) { 
port_t sender - msg- >msg_remote_por t ; 

id coinmunicat ion =' [Communication f indCoinmForPort : sender J ; 

if ( ! communication) { 

syslog (LOG„ERR, "Received message from zombie"); 

return; 

) 

reinoteMessageReceiveCount++ ; 

if (msg->msg_id == RO_TELL_MSG_ID) { 

handleRemoteTell (msg, sender , communication); 
) else if (insg->msg„id == RO_ASK_MSG__ID) { 

handleRemoteAsk (msg , sender , conununication) ; 
) else 

syslog (LOG ERR, "Bogus remote message") / 

) 

Jfif 0 // Should work, but has never been used/ tested 

static void remoteTell (port„t target, msg_header_t *msg, port_t sender, int timeout) { 
int err, sndOptions = SEND_SWITC1I; 

msg->msg_remote„port = target ; 
msg->msg_local_port = sender; 
msg->msg„id = RO_TELIj_MSG_ID; 
if (timeout >= 0) 

sndOptions 1= SENDJTIMEOUT; 
err = msg_send (msg , sndOptions , timeout ) ; 
if (err) error (" remoteTell : cannot send"); 

) 

llendif 

static void remoteReply (port_t rPort, msg_header_t *msg, int timeout) { 
int err, sndOptions = SEND_SWITCH; 
msg->msg_remote_jport = rPort ; 
msg->msg_local_port = PORT_NULL; 
msg->msg_id = RO_REPJLY_MSG_ID; 
if (timeout >= 0) 

sndOptions 1= SEND_TIMEOUT; 
err = msg_send (msg, sndOptions , timeout ) ; 
if (err) error (" remoteReply : cannot send"); 



static nestingLevel=0 ; 



static void remoteAsk (port__t target, msg_header_t *msg, int timeout) { 
int err; 

int volatile sndOptions = SEND_SWITCH; 

int volatile rcvOptions = RCV„NO_SENDERS I RCV_INTERRUPT; 
msg->msg_remote_port = target; 
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insg->insg_local_port = replyPort; 
msg->msg_id = RO_ASK„MSG_ID; 
i f ( timeout >= 0 ) { 

sndOptions 1= SEND_TIMEOUT; 

rcvOptions 1= RCV_TIMEOUT; 

} 

nestingLevel++; 

if (nestingLevel — 1 && enableProc) 

(*enableProc) ( replyPort , handieRemoteMessage, NO) ; 
NX_DURING 

err = msg__send (msg , sndOptions , timeout ) ; 
if (err) error (" remoteAsk : cannot send") ; 
else { 

while (1) { 

msg->insg_size =* MSG„SIZE_MAX ; 

msg->msg__local_ - port « replyPort; 

err = msg_receive (msg, rcvOptions, timeout ) ; 

if (err) ( 

ROLog ( "remote Ask : cannot receive or timeout \n ") ; 
NX_RAISE<TIMEOUT_REMOTE_EXCEPTION, "Cannot receive", NULL); 
} else { 

if <msg->msg^id == RO__R E P L Y_M S G__ ID) ( 

break; 
) else 

handieRemoteMessage ( (msg__header_t *)msg, NULL); 
//7? IF OUT OF LINE, DEALLOCATE HERE 

> 

} 

) 

nestingLevel — / 

if (! nestingLevel && enableProc) 

( *enableProc) ( replyPort , handieRemoteMessage, YES ) ; 
NX_JIANDLER 

nestingLevel-- ; 

if (! nestingLevel && enableProc) 

( *enableProc) ( replyPort , handieRemoteMessage , YES ) ; 

NX„RERA1SE ( ) ; 
NX_ENDIIANDLER; 

) 



10010.929 



46 



Express Mail #B05997312R 



# # 



/* This module simply allows NXStrings to be passed across address spaces. 

The principle is: to encode a NXString, make a temporary object holding the string, encode 
its characters, free the temporary; to decode a NXString, decode the temporary object, re 
place by an immutable string, free the temporary. */ 

ttimport . /lowlevel . subproj /NXString .h H 

ft import "RemoteObject.h" 
if import " NX Port St ream, h" 

il import <string.h> 

# import <stdio.h> . . i 

©interface _TemporaryStringlIolder s Object { 
©public 

NXString *string; 

} 

@end 



©implementation _TemporaryStringHolder 

- writePortStream: (NXPortStream *) stream { 

unsigned length = t string length]; 

NXChar *chars = malloc ( length*sizeof (NXChar) ) ; 

[super writePortStream: stream] ; 

{string setChars : chars J ; 

NXWritePortTypes (stream, "i", &length) ; 
NXPortEncodeBytes (stream, (char *) chars, length); 
free (chars ) ; 
return self; 

} 

- readPortStream: (NXPortStream *) stream ( 

unsigned length; 
NXChar *chars; 
(super readPortStream: stream] ; 
NXReadPortTypes (stream, "i M , &length) ; 
chars = malloc ( length*sizeof (NXChar) ) ; 
NXPortDecodeBytes (stream, (char *)chars, length); 
string = [NXImmutableString newFor : length chars : chars ] ; 
free (chars ) ; 
return self; 

) 

- af terPortReading : (Communication *) communication { 

NXString *res = string; 
[self free] ; 
return res ; 

) 

©end \ 
©interface NXString (NXString_RemoteOb ject_Coding) 

- encodeRemotelyFor: (Communication *) communication f reeA ft er Encoding : (BOOL *)flag; 
©end 

©implementation NXString (NXString_RemoteObj ect„Coding) 

- encodeRemotelyFor : (Communication *) communication f reeAf terEncoding : (BOOL *)flag { 

_TemporaryStringllolder *new = t__TemporaryStringIIolder new] ; 



10010.929 



47 



Express Mail #B05997312R 



# • 

new->string = self; 
*flag = YES; 
return new; 



@end 
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tf import <objc/Object .h> 

fl import <objc/hashtable .h> 

# import <sys/message.h> 

extern SEL _sel„registerName (STR key)/ 
//?? will go away 



/ 



***************** Definitions **************************/ 



typedef struct _NXPortStream { 

msg_header_t *msg; 
//?? DO SIZE TEST LATER 

BOOL write; /* writing vs reading */ //REMOVE AFTER DEBUG I 

id communication; 

char * chars; 

int nbchars; 

int maxchars; 

int *ints; 

int nbints ; 

int maxints ; 

} NXPortStream; 

^interface Object (Coinmunication_Calls) 

- beforeEncoding: object onto: (NXPortStream *) stream freeAf terEncodings (BOOL *)flag; 

/* will encode the returned object; if flag is set, returned object will be send 'free 
* after encoding * / 

- af terDecoding: object from: (NXPortStream *) stream; 

/* will replace the decoded object by the returned object */ 

@end 

/****************** global operations ***********************/ 

extern NXPortStream *NXOpenEncodePortStream (msg_header_t *msg, int sequence, id communicat 
ion) ; 

extern NXPortStream *NXOpenDecodePortStream (msg„header_t *msg, id communication); 
/* buffer is char [MSG_SIZE_MAX] ; 

If mode is NX_WUITEONLY , creates a NXPortStream, ready for writing, given a P^^ic 
al stream on which to actually put the bytes. If mode is NX__RE ADONLY ere ?tes a NXPortStre 
am, ready for reading, given a physical stream on which to actually get the bytes. The ca 
Her is responsible for closing physical. If the file format mismatches right from the sL 
art with stream format, NULL is returned, otherwise an exception might be raised. 

Iff read, have buffers point to msg */ 

extern void NXCloseEncodePortStream (NXPortStream * stream) ; 

/* Copy buffers into message and prepare msg for msg_sendj 
free stream */ 

extern void NXCloseDecodePortStream (NXPortStream *stream) ; 
/* free stream */ 

extern int NXGetPortStreamSequence (NXPortStream *streain) ; 

/***************** Read/Write data **************************/ 

void NXPortEncodeBytes (NXPortStream *stream, const char *bytes, int count); 
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ff import <objc/Obj ect .h> 

il import <objc/hashtable .h> 

ff import <sys/message.h> 

extern SEL sel registerName { STR key); 

//?? will go away 

/***************** Definitions **************************/ 

typedef struct __NXPortStream { 

msg_header_t *msg; 
//?? DO SIZE TEST LATER 

BOOL write; /* writing vs reading */ //REMOVE AFTER DEBUG I 

i d communication ; 

char * chars; 

int nbchars; 

int maxchars; 

int *ints; 

int nbints; 

int maxints; 
) NXPortStream; 

©interface Object (Commuriication_Calls ) 

- beforeEucoding: object onto: (NXPortStream *) stream f reeAf terEncoding : ( BOOL *)flag; 

/* will encode the returned object; if flag is set, returned object will be send 'free 
• after encoding */ 

- af terDecoding : object from: (NXPortStream *) stream; 

/* will replace the decoded object by the returned object */ 

@end 

/A***************** global operations ***********************/ 

extern NXPortStream *NXOpenEncodePortStream(msgJieader„t *msg, int sequence, id communicat 
ion) ; 

extern NXPortStream *NXOpenDecodePortStream (msg_Jieader_t *msg, id communication); 
/* buffer is char [MS G_S I ZE_M AX J ; 

If mode is NX WRITEONLY , creates a NXPortStream, ready for writing, given a physic 

al stream on which to actually put the bytes. If mode is NX_READONLY, creates a NXPortStre 
am, ready for reading, given a physical stream on which to actually get the bytes. The ca 
Her is responsible for closing physical. If the file format mismatches rxght from the st 
art witli stream format, NULL is returned, otherwise an exception mxglit be raxsed. 

Iff read, have buffers point to msg */ 

extern void NXCloseEncodePortStream (NXPortStream * stream) ; 

/* Copy buffers into message and prepare msg for msg_send; 
free stream */ 

extern void NXCloseDecodePortStream (NXPortStream *stream) ; 
/ * free stream * / 

extern int NXGetPortStreamSequence (NXPortStream * stream) ; 

/***************** Read/write data **************************/ 

void NXPortEncodeBytes (NXPortStream *stream f const char *bytes, int count); 
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void NXPortDecodeBytes (NXPortStream *stream, char *bytes, int count); 

extern void NXWri tePortTypes (NXPortStream *stream, const char *type, ...); 
/* Restricted to monochar type descriptions; 
Last arguments specify addresses of values to be written. 

It might seem surprising to specify values by address, but this is extremely conve 
nient for copy-paste with NXReadPortTypes calls. A more down- to- the-earth cause for this 
passing of addresses is that values of arbitrary size is not well supported in ANSI C for 
functions with variable number of arguments. */ 

extern void NXReadPortTypes (NXPortStream *stream, const char *type, ...); 
/* Restricted to monochar type descriptions; 

bast arguments specify addresses of values to be read. Expected type is checked a 
gainst the type actually present on the stream. */ 

extern void NXWri tePor tTypelnternal (NXPortStream *stream, const char *type, const void *da 
ta) ; 

extern void NXReadPortTypelnternal (NXPortStream *stream, const char *type, void *data) ; 
/*************** errors ****************************/ 

/* several exceptions can occur; the format of all exceptions raised is a label, a message 
string and maybe some extra information */ 



typedef enum _Por tStreamErrors { 

PORTSTREAM„CAbL*ER_ERROR = PORTS TREAM_ERROR_ BASE, 

PORTSTREAM_INCONSISTENCY , 

PORTSTRE AM_ I N TERN A L_ERROR 
J PortStreamErrors; 

Qinterface Object (Object_PortStream__Calls ) 

- writePortStream: (NXPortStream *) stream; 

- readPortStream: (NXPortStream *) stream; 
@end 



fl define PORTSTREAM_ERROR__BASE 37 000 



/* less than appkit base */ 
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/ * NXPortStream . in 

Copyright 1989, NeXT, Inc. 
Bertrand 1989 

*/ 

II import "NXPorbStream.h" 

ff import <stdlib.h> 

ft import <stdarg . h> 

II import <stdio.h> 

ffimport <string.h> 

^import <syslog . h> 

ff import <mach . h> 

ft import <libc.h> 

II import <objc/ error . li> 

II import <objc/objc-class .h> 

ffimport <objc/objc-runtime .h> 

ff define DEBUG_LEAKS 0 

/***************** utilities **************************/ 

static void BUG(const char *str) { 

syslog (LOG„ERR, «*** RemoteObjects : internal error in %s", str) ; 
NX„RAISE(PORTSTREAM_INTERNAL_ERROR, Str, NULL) ; 

) 

static void checkExpected < const char *readType, const char *wanted) { 
if (readType - = wanted) return; 

if (! readType II strcmp (readType, wanted)) BUG ( "checkExpected" ) ; 

) 

<a implementation Object <Object„PortStream__ Calls ) 

- writePortStream: (NXPortStream *) stream { return self; } 

- readPortStream: (NXPortStream *) stream { return self; } 
@end 

/***************** Definitions **************************/ 

typedef struct __remote_message_t { 
msg__header_t header; 
msg__type_t sequenceType; 
int sequence; 

/* following is chars type and chars, int types and ints, etc ... */ 
) remote„message_t ; 

static void PortlnternalWriteObj ect (NXPortStream ♦stream, id object); 

/* write an object without header */ 
static id PortlnternalReadObject (NXPortStream * stream) ; 

/* read an object without header */ 

/***************** Coding data **************************/ 

void NXPortEncodeBytes (NXPortStream *stream, const char *buf, int count) { 
while (stream->nbchars + count > stream- >maxchars ) { 
stream->maxchars += stream->maxchars + 1; 

stream->chars = realloc ( stream->chars , stream->maxchars ) ; 

) 

bcopy(buf, stream~>chars stream->nbchars , count); 
stream- >nbchars += count; 

) 

void NXPortDecodeBytes (NXPortStream *stream, char *buf, int count) { 
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if (count > stream->nbchars) BUG ( "NXPortDecodeBytes " ) ; 
bcopy (stream- >chars , buf, count); 
stream- >chars += count; 
stream->nbchars - = count; 

) 

static inline void __NXEncodeChar (NXPortStream *stream # signed char ch) { 
if ( stream->nbchars + 1 > stream->maxchars ) { 
stream-xnaxchars += stream->maxchars + 1; 

streain->chars = realloc ( stream->chars , stream->maxchars ) ; 

) 

s tream->chars [stream->nbchars ++] = ch; 

} 

static inline signed char _NXDecodeChar (NXPortStream *stream) { 
if (streara->nbchars-- <= 0) BUG ( w _NXDecodeChar " ) ; 
return * ( s tream->chars ++) ; 

J 

static void „NXEncodeInt (NXPortStream *stream, int x) { 
if ( stream->nbints + 1 > stream->maxints ) { 
stream->maxints += strearn->rnaxints + 1; 

stream->ints = realloc ( stream->ints , stream->maxint s * sizeof (int) ) ; 

) 

stream->ints I strearn->nbints + + ] = x; 

) 

static int „NXDecodeInt (NXPortStream *stream) { 

if (stream->nbints— <= 0) BUG ( " NXDecodelnt " ) ; 

return * (stream->ints++) ; 

) 

static void „NXEncodeBooi (NXPortStream *stream, BOOL x) { 
_NXEncodeInt (stream, (x) ? 1 : 0); 

) 

static BOOb „NXDecodeBool (NXPortStream *streain) { 
int x = _NXDecodeInt (stream) ; 

if (x && xi=l) BUG ( "_NXDecodeBool " ) ; 
return x; 

) 

static inline void _NXEncodeFloat (NXPortStream *stream, float x) { 
NXPortEncodeBytes (stream, (char *) &x, sizeof (float) ) ; 

) 

static inline float _NXDecodeFloat (NXPortStream *stream) { 
float x; 

NXPortOecodeBy tes (stream, (char *) &x, sizeof ( float )) ; 
return x; 



static inline void _NXEncodeDouble (NXPortStream *stream, double x) { 
NXPortEncodeBy tes (stream, (char *) &x, sizeof (double) ) ; 

} 

static inline double __NXDecodeDouble (NXPortStream *streain) { 
double x; 

NXPortOecodeBy tes (stream, (char *) &x, sizeof (double) ) ; 
return x; 



static void _NXEncodeChars (NXPortStream *stream, const char *str) { 
_NXEncodeBool (stream, (str) ? YES : NO); 
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if (str) { 

int len = strlen (str) ; 

__NX Encode I nt (stream, len) ; 
NXPortEncodeBytes (stream, * str, len) ; 



) 



) 



static char *_NXDecodeChars (NXPortStream *stream) { 
if : ( ! _NXDecodeBool (stream) ) return NULL / 
else { 

int len = „NXDecodeInt ( stream) ; 

char *str « (STR) malloc ( len+1 ) ; 
NXPortDecodeBytes (stream, str, len) ; 
str { len] = ' \0 ' ; 
. return str; 

} 

) 

static NXAtom „NXDecodeUniqueString (NXPortStream *stream) { 

char *new = „NXDecodeChars ( stream) ; 

NXAtom atom = NXUniqueSUring ( new) ; 

free (new) ; 

return atom; 
) ' 

/******* global operations *******/ 

NXPortStream 'NXOpenEncodePortStream <msg_header_t *msg, int sequence, id communication) 
NXPortStream *stream = calloc ( sizeof (NXPortStream) , 1) ; 

remote_message_t *head = < remote_message_t *)msg; 

if (! communication) BUG ( "NXOpenEncodePor tStream" ) ; 
s t ream - >coiniiiun ica t i on = communication; 
stream- >write = YES; 
stream->msg = msg; 

)iead->sequenCGTypG.nisg„type_name = MSG_TYPE„INTEGEFL_32 ; 
head->sequenceType.msg_type__size = sizeof (int) * 0; 
liead->sequenceiype . msg_type„number = 1; 
head->sequenceType.msg_J:ype_inline = TRUE; 
head->sequenceType.msg_type_longform = FALSE; 
head->sequence'IVpe.msg„type_ - deallocate = FALSE; 
head->sequence = sequence; 

return stream; 



NX 



PortStream *NXOpenDecodePortStream(msg_header_t *msg, id communication) { 
void *head « ((void *)msg) +sizeof (remote_message_t) ; 

NXPortStream *stream - calloc ( sizeof (NXPortStream) , 1) ; 

if ( ! communication) BUG ( -NXOpenDecodePortStream" ) ; 
stream- >communicat ion = communication; 
stream- >write = NO; 
stream->msg = msg; 

if (insg->msg_simple) ( 

msg_type_t *type; 
type = head; 

if (type->msg„type„name 1 = MSG_TYPE_BYTE) 

BUG( "NXOpenDecodePort St ream-char") ; 
stream- >nbchars = type->msg__type_ number ; 
liead += sizeof (msg_type__t) / 
stream->chars = head; 
head += stream->nbchars; 
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type = head; 

if (type->msg_Uype_naine != MSG_TYPE„INTEGER_3 2 ) 

BUG( " NXOpenDecodePor t S t ream- i n t H ) ; 
stream->nbints = type->msg — type_nuniber ; 
head + = sizeof (insg_type„t ) ; 
stream->ints = head; 

head += stream->nbints * sizeof (int) ; 




else { 

msg_type_long_t * type ; 

type = head; 

if (type->msg„type„long_name != MSG„TYPE_BYTE) 

BUG( " NXOpenDecodePor tSt ream-char H ) ; 
stream->nbchars = type->msg„type__long__number ; 
head += sizeof (msg_type_long_t ) ; 
stream->chars = ((char **)head) 10]; 
head += sizeof (int) ; 

type = head; 

if (type->msg_type_long__name 1= MSG__TYPE — INTEGER_32 ) 

BUG ( " NXOpenDecodePor tSt ream- int " ) ; 
stream->nbints = type->msg_type_long_number ; 
head += sizeof: (msg__type__long_J: ) ; 
streain->ints = ((int **)head)[0J; 
head += sizeof (int); 



) 

return stream; 

> 

void NXCloseEncodePortStream(NXPortStream *stream) { 

void *head = ((void * ) stream->msg ) ^sizeof ( remote_message_t ) ; 

iC (! stream->write) BUG < "NXCloseEncodePorLStream" ) ; 
/* We. pad chars to a multiple of 4; what a hack! */ 
stream->nbchars = ( ( stream->nbchars + 3)/4)*4; 
stream->chars = realloc ( s tream->chars , stream->nbchars) ; 



/* We test for out-of-line */ . . 

stream->msg->msg_simple = (sizeof (remotejnessage.t ) + sizeof (msg__type__t ) + streatn->nbchars 

,-sizeof (msg_type„t)+stream->nbints * sizeof(int) < MSG_SIZE_MAX) (stream->nbchars <= 40 

95) && (streain->nbints <= 4095); 



if ( stream->msg->msg__simple) { 

msg__ty pe_t * type ; 

type = head; 

type->msg__type_name = MSG_TYPE_BYTE; 
type->insg„type_size = 8 ; 

type->msg_type„number = stream->nbchars ; 
type->msg„type_inline = TRUE; 
type->msg__type_longf orm '= FALSE; 
type->msg_type_deallocate = FALSE; 
liead += sizeof (msg„type_t) ; 

bcopy (stream->chars ( head, stream->nbchars ) ; 
head += s tream->nbchars ; 
f ree ( s tream->chars ) ; 

type = head; 

type->msg_type_name = MSG„TYPE_INTEGER W _32 ; 
type->msg_type_size == sizeof (int) * 8; 
type->msg_type_number = stream->nbints ; 
type->msg__type__inline = TRUE; 
type->msg_type_ilongf orm = FALSE; 
type->msg_type_deallocate » FALSE; 
head += sizeof (msg_type_t) ; 
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bcopy ( stream - >ints , head, stream->nbints * sizeof ( int ) ) ; 
head i= stream- >tib.ints * sizeof (inU) ; 
f ree (stream- > int s) ; 

) eise ( 

msg„type_long_t . *type; 

vm_address_t buffer; 
type a= head; 

type->msg_type_header .msg_type__name - 0 ; 
type->msg_type_header ,msg_type_size = 0 ; 
_):ype->insg_type„header .msg__type__number = 0 ; 
type->iusg_type_header .msg_type — inline = FALSE ; 
type->insg„type_header .msg_type__longf orm = TRUE; 
type- >msg_ty pejieader . msg__type_deal locate = TRUE; 

type->msg_type_long_name = MSG TYPE_BYTE ; 

type->msg_type__long_size = 0; 

type- >insg„.type_long__n umber = s tream->nbchars ; 
head += sizeof (msg__type_long_t ) ; 

if (vm_allocate(task_self () , ( vm_address_t *)&buffer, stream->nbchars , 1) ! = KERN_ 

SUCCESS) 

BUG ( "NXCloseEncodePortStream : can't allocate (chars) * ) ; 
bcopy (stream->chars, (char *)buffer, stream->nbchars) ; 
((int *)head){0] = buffer; 
head + = sizeof (int); 
f ree (stream->chars ) ; 

type = head; 

type->msg_type Jieader . msg„type„name = 0; 
type- >msg_type_header . msg_type_s i ze = 0; 
type- >msg„ type Jieader , msg_type_number = 0; 
type - >msg_ type Jieader . msg„type_inl ine = FALSE; 
type->msg_type_header ,msg__type„longf orm = TRUE; 
type- >msg_ty pejieader . msg_type_deal locate = TRUE; 
type->insg_type_long_name = MSG„TYPE_INTEGER_32 ; 
type->msg__type_long__size = sizeof (int) * 8; 
type->iusg„type_long_number = stream->nbints; 

head sizeof (msg__type_long_t ) ; ^„„ F , \ 

if (vm_allocate(task„self () , ( vm_address_t M&buffer, stream->nbints sizeofUnt) 

, 1) != KERN__SUCCESS) 

DUG ( "NXCloseEncodePortStream: can't allocate (ints) J; 
bcopy (stream->ints, (char *) buffer, stream->nbints * sizeof (int) ) ; 
((int *)head)[0] = buffer; 
head += sizeof (int) ; 
f ree (stream->ints) ; 

) 

stream->msg->msg_type = MSG_TYPE_NORMAL; 

stream- >msg->msg_size « head - (void * ) s tream->msg ; 

free (stream) ; 

> 

void NXCloseDecodePortStream(NXPortStream *stream) { 

if (stream->write) BUG ( "NXCloseDecodePor tStream" ) ; 
if (! stream- >msg->msg__simple) ( 

void *head = ((void * ) stream->msg) +sizeof (remote_message_t ) ; 

insg_type__long_t *type; 
type = liead; 

if <type->msg_type_long_name ! = MSG_TYPE_BYTE) 

BUG ( " NXOpenDecodePor tStream-char " ) ; 
head += sizeof <msg_type_long__t ) ; 

if <vm_deallocate<task_self () , ((int *)head)(0J, type- >msg_type„long_number ) ! = KE 

RN_SUCCESS) , , . « . " * " 

BUG( "NXCloseDecodePortStream: can't deallocate (chars)"); 
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head i= sizeoftint) ; 
type = head; 

if ( type - >msg_type_long_name != MSG__TYPE INTEGER 3 2 ) 

BUG ( "NXOpenDecodePortStream-int " ) ; 
head += sizeof (msg_type_long_t) ; 

if (vm_deallocate ( task_self ( ) , ((int *)head)[OJ, type->msg._type„long„number * size 
of(int)) != KERN_SUCCESS) 

BUG ( "NXCloseDecodePortStream: can't deallocate (ints) ") ; 
head += sizeof(int); 

) 

free (stream) ; 

) 

int NXGetPortStreamSequence (NXPortStream *stream) { 

remote_message_t *liead = ( reinoLe_message__t *)stream->msg; 

return head->sequence; 

} 

/******* Writing and reading arbitrary data *******/ 

void NXWritePortTypelnternal (NXPortStream *stream, const char *type, const void *data) { 
switch (*type) { 

case 'c': case 'C: { 

char cc = 0; /* for padding */ 

cc = * ( (char *)data); 
_NXEncodeInt ( stream, cc) ; 
break; 

} 

case 's': case 'S': { 

short ss = 0; /* for padding */ 

ss = *( (short *)data); 
_NXEncodeInt (stream, ss) ; 
break; 

) 

case 'i'j case 'I': case '1': case 'I*': 

„NXEncodeInt (stream, *((int *)data)); 

break; 
case ' f ' : 

„NXEncodeFloat (stream, *( (float *)data)); 
break; 
case ' d' : 

_NXEncodeDouble (stream, *( (double *)data)); 
break ; 
case ' @ ' : 

PortlnternalWriteObject (stream, * ( ( id *)data)); 
break ; 
case ' * ' • 
#if DEBUG_LEAKS 

syslog (LOG_ERR, «*** Remote Objects* un-freeable string encoding: %s M , *((char 

**)data) ) ; 
flendif 

_NXEncodeChars (stream, * ( (char **)data) ) ; 
break ; 
case ' % * : 

_NXEncodeChars (stream, * ( (NXAtom *)data) ) ; 
break; 
case ' j * : { 

SEL sel = *((SEIi *)data); 

char *str = NULL; 

if (sel) str = sel„getName (sel) ; 

_NXEncodeChars ( stream, str); 

break; 
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) 



} 

case ' ! ' : 
break ; 

default: BUG ( "NXWri tePortTypelnternal : unknown type descriptor"); 



} 



void NXReadPortiypelnternal (NXPortStream *stream, const char *type, void *data) { 
switch (*type) { 

case 'c': case 'C: { 

signed char *ptr = data; 

*ptr = _NXDecodeInt (stream) ; 
break; 

) 

case 's': case 'S' : { 

short *ptr = data; 

*ptr = _NXDecodeInt (stream) ; 
break; 

> 

case 'i': case 'I': case '1'j case 'L': ( 
int *ptr = data; 

*ptr = _NXDecodeInt (stream) ; 
break; 

) 

case ' f ' : { 

float *ptr = data; 

*ptr = __NXDecodeFloat (stream) ; 

break; 

} 

case 'd' s ( 

double *ptr = data; 

*Ptr = _NXDecodeDouble (stream) ; 

break; 

) 

case ' @ ' : { 

id *ptr = data; 

*ptr = PortlnternalReadObject (stream) ; 

break; 

) 

case ' * ' : ( 

char **ptr = data; 

*ptr = _NXDecodeChars (stream) ; 
break; 

) 

case ' % ' : { 

NXAtom *ptr = data; 

*ptr = __NXDecodeUniqueString (stream) ; 

break ; 

) 

case ' : ' : { 

SEb *ptr = data;* 

NXAtom selName = _NXDecodeUniqueS t ring (stream) ; 

*ptr = _sel_registerName ( (char *)selName); 

break; 

) 

case ' J ' : 
break ; 

default: BUGCNXReadPortTypelnternal: unknown type descriptor"); 



void NXWritePortTypes (NXPortStream *stream, const char *type, ...) { 
va_list args ; 

va_start (args, type); 



10010.929 



58 



Express Mail #B05997312R 



} 



• w 

/* We could avoid i^ffc line at the cost of more paiirT^^ debug */ 
__NXEncodeChars (stream, type); 
while (*type) { 

NXWritePortTypelnternal (stream, type, va_arg(args, voxd )); 
type = type++/ /* we restrict to monochar type descriptions */ 

) 

va_end (args) ; 



void NXReadPortTypes (NXPortStream *stream, const char *type, ...) { 
NXAtom readiype; 
va_llist args; 
va_s tart (args , type); 

readiype = _NXDecodeUniqueS t ring (stream) ; 

/* We could avoid next line at the cost of more painful debug */ • 

checkExpected(readType, type) ; 

while (*type) { 

NXReadPortTypelnternal (stream, type, va_arg(args, void 

type = type++; /* we restrict to monochar type descriptions */ 

) 

va_end (args) ; 

} 

static void PortlnternalWriteObject (NXPortStream *stream, id object) { 

BOOL flag = NO; ^ ^ , 

if <! [stream->communication respondSTo: Gselector (bef oreEncoding : onto i f reeAf terEncod 

inu:)]) BUG ( "PortlnternalWriteObject ") ; 

object = lstream->conununication bef oreEncoding : object onto* stream f reeAf terEncodxng : 

fcflagj; 

„NXEncodeBool (stream, (object) ? YES i NO); 
if (object) { 

Class class = (class) [object class); 

if (! class) BUG ( "PortlnternalWriteObject : found null class"); 
_NXEncodeChars (stream, class- >name) ; 
(object writePortStreami stream]; 
__NXEncodeBool (stream, YES); 
if (flag) [object free]; 

) 

) 

static id Port InternalReadObject (NXPortStream ^stream) { 
id object; 

if (I _NXDecodeBool (stream) ) return nil; 
el se { 

NXAtom className = _NXDecodeUniqueString (stream); 

Class class - (Class) objc„getClass ((char *) className); 

if (! class) BUG( "Port InternalReadObject 5 class not loaded"); 

/* explicit class initialization */ 

(void) t(id) class self]; 

object = class — createlnstance (class, 0); 
(object readPortStream: streamj ; 

ir b (T C ^streamUcommu n ication respondsTo, Selector (af terDecoding t from: ) J > BUGCPo 

rtlnternalWriteObject-l") ; * . 

object » (stream->communication af terDecoding s object from: streamj; 
if (! _NXDecodeBool (stream) ) BUG( " Port InternalReadObject -2 " ) ; 
return object; 
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